home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 42
/
Mac Magazin and MacEasy Magazine CD - Issue 42.iso
/
Software
/
Mobiles Büro
/
Newton
/
Accordian 1.0b
/
ADF Folder
/
morgan.adf
< prev
next >
Wrap
Text File
|
1997-10-15
|
2KB
|
66 lines
// Definition of the MORGAN program
// The ID in Tracks matches one ID in Covers
// if user imports data the id in tracks must match an id in covers
//
application "MORGAN:VtHick" called "MORGAN"
// with options { "nofolders" }
soup "Tracks:MORGAN:VtHick" called "Tracks" of "MORGAN:VtHick"
overview "Tracks" called "MORGAN*Tracks" of "Tracks:MORGAN:VtHick" queries "_uniqueID" contains
{
column "ID" width 70 is id
column "Track" width 30 is track
column "Title" width 70 is title
column "Artist" width 70 is artist
column "Time" width 30 is time
}
class "Track:MORGAN:VtHick" called "Track" of "Tracks:MORGAN:VtHick" contains
{
id: integer called "ID"
track: integer called "Track"
title: string called "Title"
artist: string called "Artist"
time:string called "Time"
// sample:sound called "Sample"
notes:note called "Lyrics&Notes"
}
soup "Covers:MORGAN:VtHick" called "Covers" of "MORGAN:VtHick"
overview "Covers" called "MORGAN*Covers" of "Covers:MORGAN:VtHick" queries "_uniqueID" contains
{
column "Title" width 70 is title
column "Artist" width 70 is artist
column "Media" width 50 is media
column "Genre" width 50 is genre1
}
class "Cover:MORGAN:VtHick" called "Covers" of "Covers:MORGAN:VtHick" contains
{
id: integer called "id"
title: string called "Title"
artist: string called "Artist"
label:string called "Label"
media:string called "Media"
catalog:string called "Catalog"
year:string called "Year"
genre1:string called "Genre1"
genre2:string called "Genre2"
length:string called "Length"
rating:string called "Rating"
producer:string called "Producer"
received:string called "Received"
quality:string called "Quality"
purchasedAt:string called "Purchased At"
purchasedDate:datetime called "Purchased Date"
purchasedPrice:string called "Purchased Price"
currentPrice:string called "Current Price"
inventory:string called "Inventory"
loanedTo:string called "Loaned To"
loanedDate:string called "Loaned Date"
Notes:note called "Notes"
}